5 IFA=.THENA=1:LOAD"MATHERS.SPR",8,1
10 POKE53248+21,.
15 POKE55,.:POKE56,48:CLR
20 GOSUB30:PRINT"[147]":POKEV,6:POKEVB,6:GOTO50
30 O$=" ":T$="   ":L$="     ":P$=L$+"  "
35 J$=P$+"  ":Q$=J$+"  ":S$=Q$+"    "
40 V=53280:VB=V+1:K=1024:S=54272:C$="CORRECT"
45 I$="INCORRECT":D$="":RETURN
50 J=J+1:X=INT(RND(1)*999)+K:P=X+S:POKEX,46:POKEP,1:IFJ<100THEN50
60 POKE1149,81:POKE1577,81:POKE1692,81:POKE55421,8:POKE55849,5:POKE55964,2
70 PRINTD$"[152] [155]  [223][169]  [146][152][223][155]    [146][152][223][155]     [146][152][223][155] ";
75 PRINT"[146][152][223] [155] [146][152][223][155]    [146][152][223][155]    [146][152][223]";
80 PRINT"[155]    [146][152][223]"
90 PRINT" [155] [146][223]  [146][169] [146]  [146]   [146]    [146]   ";
95 PRINT" [146]   [146]  [146]     [146]   [146]  [146]   [152][167]"
100 PRINT" [155] [146] [223][169]  [146]     [146]  [152] [155] [146]  [152] [155]    [146]    [146]     [146][169]     [152][146][167]"
110 PRINT" [155] [146]   [152][169][155] [146]  [146]   [146]  [152] [155] [146]  ";
115 PRINT"[152] [155] [146]   [146]  [146]     [146] [223][223][146]     [152][146][167]"
120 PRINT" [155] [146]  [152][223] [155] [146]  [146]   [146]  [152] [155] [146]  [152] ";
125 PRINT"[155] [146]   [146]     [146]  [146]   [146]     [152][146][167]"
130 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][155]"
140 PRINT"[155]"S$"[157]O F   T H E"
150 PRINT"   [146]  [146]   [223] [146]   [146] [223][223][169][146][169]  [192][192][146]   [192] [146]   [192][192][146]   [192][192][146]"
160 PRINT"     [146]   [146][223] [146]   [146]  [223][169]   [192][192][146]   [146] [188][146]  [192][192] [146]   [192][192][146]":POKE198,.
170 X=INT(RND(1)*990)+K:Z=PEEK(X):IFZ<>32ORX>1263ANDX<1464THEN170
175 GETA$:IFA$<>""THEN200
180 J=X+S:POKEX,46:POKEJ,1:FORP=1TO50:NEXT
185 POKEJ,6:POKEX,32:FORP=1TO100:NEXT
190 IFM<30THENM=M+1:GOTO170
200 POKEV,0:POKEVB,0:PRINT"[147] T R A I N I N G   M I S S I O N  XXVII"
210 PRINT"YOU ARE ABOUT TO UNDERGO A TRIAL RUN  IN"
220 PRINT"THE SPACE PILOT TRAINING  PROGRAM.  YOUR"
230 PRINT"MISSION IS TO  MAKE A SUCCESSFUL LANDING"
240 PRINT"ON A NEARBY ASTEROID.TO DO THIS YOU MUST"
250 PRINT"ACCURATELY CALCULATE THE CORRECT  POUNDS"
260 PRINT"OF FUEL NEEDED TO FIRE THE MAIN ROCKETS."
270 PRINT"IF YOUR CALCULATIONS ARE INACCURATE, THE"
280 PRINT"ROCKETS WILL NOT FIRE, FUEL WILL BE LOST"
290 PRINT"AND GRAVITY WILL PULL ON THE SHIP (SPEND"
300 PRINT"ALL  YOUR  FUEL AND YOUR SHIP WILL CRASH"
310 PRINT"ON THE LAUNCHING PLATFORM)....GOOD LUCK!"
320 PRINTJ$"PRESS ANY KEY TO BEGIN";
330 GETF$:IFF$=""THEN330
340 PRINT"[147]":GOSUB30:J=24:JJ=226:M=247
345 DIMHF(18),HH(18),LF(18),LL(18),DR(18)
350 FORI=1TO18:READHF(I),HH(I),LF(I),LL(I),DR(I):NEXT
355 FORI=1TO4:READQC(I):NEXT
360 FORI=1TO7:READRD(I),RP(I),RR(I),RN(I):NEXT:PL=-1:KF=183
370 PRINT"[147]","  PICK A LEVEL!",,"     LEVEL"L$;
375 PRINT" MOST DIFFICULT PROBLEM"
380 PRINT"1) BEGINNER I"Q$"  5*5",,"2) BEGINNER II"Q$" 9*5"
390 PRINT"3) BEGINNER III"Q$"9*9",,"4) JUNIOR I"S$"40*9"
400 PRINT"5) JUNIOR II"S$"[157]100*9","6) ADVANCED"S$"100*99"
410 PRINT"7) SENIOR"S$"  1000*999",
415 PRINT"8) TO CHANGE AND SET THE SECOND NUMBER"
416 PRINT"9) EXIT"
430 PRINT" MULTIPLY NUMBERS FOR HIGHEST DIVIDEND";:POKE198,0
440 GETB$:A=VAL(B$):IFA<1ORA>9THEN440
445 IFA=9THEN60000
450 H=7:IFA=8THEN1200
460 PRINT"[147]"D$J$"SELECT A CATEGORY!":PRINT,"1) ADDITION"
470 PRINT,"2) SUBTRACTION":PRINT,"3) MULTIPLICATION"
475 PRINT,"4) DIVISION"
480 PRINT,"5) COMBINATION 1 & 2":PRINT,"6) COMBINATION 3 & 4":POKE198,0
490 GETA$:B=VAL(A$):IFB<1ORB>6THEN490
500 GOSUB1750:X=(RND(1)*TI):IFA>6ORPL>99THENH=6
510 PRINT"[147]":POKEV,7:G=53265:POKEG,PEEK(G)AND239:IFB=5ORB=6THENCO=B-3
520 X=INT(RND(1)*986)+1037:IFX>1183ANDX<1224THEN520
530 IFX>1263ANDX<1304THEN520
540 P=X+S:Z=Z+1:POKEX,46:POKEP,1:IFZ<61THEN520
550 PRINT:PRINTD$D$D$D$D$" E"J$"FUEL"J$"[157]F":IFB=4THENRT=1
560 PRINT"                         [146] .   [152][164][175][185][185][185][175][164]";
570 VC=13*4096:POKEVC+21,49:POKEVC+29,112:POKE2040,192:POKE2041,193
580 POKE2042,194:POKE2043,195:POKE2044,196:POKE2045,197:POKE2046,198
590 POKEVC+16,95:POKEVC+0,J:POKEVC+1,JJ:POKEVC+2,J:POKEVC+3,M:POKEVC+4,J
600 POKEVC+5,M:POKEVC+6,J:POKEVC+7,M:POKEVC+8,12:POKEVC+9,50:POKEVC+10,KF
610 POKEVC+11,244:POKEVC+12,12:POKEVC+13,227:POKEVC+39,11:POKEVC+40,7
620 POKEVC+41,2:POKEVC+42,2:POKEVC+43,3:POKEVC+44,0:POKEVC+45,11:POKEV,5
630 POKEV,0:POKEVB,0
640 GOSUB1690:POKEG,PEEK(G)OR16
650 Y=-1:Y$="":X=0:XX=0:T=T+1:IFCOTHENGOSUB1080
660 GOSUB960:GOSUB1690:PRINT"[151]ENTER ANSWER-":PRINT"PRESS RETURN":PRINT
670 IFPL>-1THENXX=PL
680 IFRT>0ORCO=4THEN1090
690 GOSUB790:F=X:GOSUB710:GOSUB720:PRINTT$" "X:F=XX:GOSUB710:GOSUB720
700 GOSUB750:GOSUB710:PRINTSPC(H)"[192][192][192][192]":GOSUB710
705 F=N:GOSUB720:GOSUB970:GOTO810
710 PRINT:PRINT"[145]";:RETURN
720 PRINTT$;:IFF<10THENPRINTO$;
730 NX=99:FORI=1TO4:IFF>NXTHENPRINT"[157]";:NX=NX*10+9
740 NEXT:RETURN
750 PRINTT$;:IFB=1THENPRINT"+"XX:N=X+XX
760 IFB=2THENPRINT"-"XX:N=X-XX
770 IFB=3THENPRINT"X"XX:N=X*XX
780 RETURN
790 IFXX>XTHENZX=X:X=XX:XX=ZX
800 RETURN
810 KF=KF-4:IFKF<9THENKF=9
820 POKEVC+10,KF:IFY<>NTHENWR=WR+1:GOTO920
830 PRINT""C$"!":RI=RI+1:JJ=JJ-7:M=JJ+21:POKES+3,1:POKES+6,249
840 POKES+1,6:POKES+4,129:POKEVC+21,57
850 TP=TP+1:FORP=1TO55:NEXT:POKEVC+21,61:IFTP=11THEN880
860 FORP=1TO55:NEXT:POKEVC+21,59:IFTP=13THEN890
870 GOTO850
880 POKEVC+1,JJ:POKEVC+3,M:POKEVC+5,M:POKEVC+7,M:GOTO850
890 POKES+4,0:POKEVC+21,49
895 IFJJ<41THENGOSUB1690:GOSUB1040:PRINT"[158]":GOTO1650
900 IFKF=9THEN1580
910 TP=0:FORP=1TO500:NEXT:GOTO650
920 PRINT"SORRY....":PRINT"THE TOTAL IS":PRINT"[156]"SPC(8)N
925 IFKF=9THEN1580
930 IF(RI>.)THENJJ=JJ+10:M=JJ+21:IFJJ>225THENJJ=226:GOTO1620
940 POKEVC+1,JJ:POKEVC+3,M:POKEVC+5,M:POKEVC+7,M:GOSUB1660
945 FORP=1TO10:POKES,LF
950 POKES+1,HF:POKES+4,33:LF=LF-1:HF=HF-1:NEXT
955 POKES+4,0:FORP=1TOZ:NEXT:GOTO910
960 X=INT(RND(1)*RD(A))+RP(A):XX=INT(RND(1)*RR(A))+RN(A):RETURN
970 Y$="":POKE198,0:IFA=8THENPRINT"? ";:GOTO990
980 PRINTT$"? [144]";
990 WAIT198,15:GETZ$:Z=ASC(Z$):IFZ>47ANDZ<59THENY$=Y$+Z$:PRINT""Z$;
1000 ZL=LEN(Y$):IFZL>6THENZ=20:GOTO1020
1010 IFZ=13ANDZLTHENY=VAL(Y$):PRINTO$:RETURN
1020 IFZ=20ANDZLTHENY$=LEFT$(Y$,ZL-1):PRINT"[144][157] [146][157]";
1030 GOTO990
1040 IFT<2THEN1070
1050 PRINTT$"[152]OUT OF":PRINT""T"[152]PROBLEMS":PRINTT$"YOU HAD"
1060 PRINT""RI"[152]"C$" AND":PRINT""WR"[152]"I$:PRINTT$"ANSWERS!":RETURN
1070 PRINTD$"[152]YOU NEVER GOT",,,"OFF THE GROUND!",,,"WHAT HAPPENED??"
1075 RETURN
1080 I=CO:CO=QC(I):B=QC(I):RETURN
1090 IFXX=0THENXX=INT(RND(1)*5)+1
1100 F=XX:PRINT"":GOSUB1130:IFF>9THENPRINTO$;:IFF>99THENPRINTO$;
1110 PRINTT$"[213][192][192][192][192][192][192][192]":GOSUB1130:F=X*XX:PRINTXX"[221]"F:PRINT:PRINT"[157][157][145][145][145][145]"
1120 GOSUB1160:PRINTT$;:GOSUB970:N=X:PRINT"":GOTO810
1130 PRINT"  ";:IFF<10THENPRINTO$;
1140 IFF>99THENPRINT"[157]";:IFF>999THENPRINT"[157]";
1150 RETURN
1160 IFF<10THENRETURN
1170 XY=LEN(STR$(F)):L=LEN(STR$(X)):IFXY=LTHENRETURN
1180 FORI=1TO3:IFL+(I)<=XYTHENPRINTO$;
1190 NEXT:RETURN
1200 PRINT"[147] ENTER THE NUMBER (FROM 0 TO 999) WHICH",T$
1205 PRINT"YOU WISH TO ";
1210 PRINT"APPEAR IN THE PROBLEMS",
1215 PRINT"  A ZERO IN PROBLEMS OF DIVISION WILL"
1220 PRINT"  PRODUCE A RANDOM NUMBER FROM 1 TO 5",S$"[157][151]PRESS RETURN"
1230 PRINT"NUMBER";:GOSUB970:PL=Y:IFPL<0ORPL>999THEN1200
1240 PRINTL$" YOU HAVE SELECTED NUMBER"PL:FORP=1TO2000:NEXT:GOTO370
1250 POKEVC+21,0:POKEG,PEEK(G)AND239:PRINT"[147]"RI;C$S$" "WR;I$
1260 IFA<7ANDB<3ORB=5THEN1340
1270 PRINTD$L$"  YOU HAVE MET THE REQUIREMENTS"
1280 PRINTQ$"TO QUALIFY YOU AS"
1290 IFZS=1THENPRINT" A KITE FLYER!! YOU NEED MORE TRAINING.":GOTO1330
1300 IFT<30THENPRINT"  A TOPNOTCH PILOT! CONGRATULATIONS!!"
1310 IFT>29ANDT<38THENPRINT"    A GOOD PILOT WITH HIGH POTENTIAL."
1320 IFT>37THENPRINTP$"A CO-PILOT.  KEEP TRYING!!"
1330 PRINT"":GOTO1510
1340 PRINTSPC(17)"[185][185][185][185][185][185]":M=3:Y=15:X=10:K=-2:L=4:GOSUB1550
1345 M=3:Y=10:X=20:K=-1
1350 L=2:GOSUB1550:M=1:Y=7:X=26:K=0:L=0:GOSUB1570
1355 IFZSTHENGOSUB1550:GOTO1370
1360 PRINTP$"      [146][169]"T$"[223]    [146][169]"T$"[223]      "
1370 PRINTP$"      [146]"L$"[160]   [146]"L$"      "
1375 IFT>29ANDT<38THENGOSUB1550:GOTO1400
1380 IFT>37ANDZS<>1THENPRINTP$"      [169][146]   [223]    [169][146]   [223]      ":GOTO1400
1390 PRINTP$"      [169]   [223]    [169]   [223]      "
1400 GOSUB1550:IFZS<>1THENGOSUB1550:GOTO1420
1410 PRINTP$"[181]      [146]                  [182]":GOTO1450
1420 GOSUB1570:IFT<38THENPRINTP$"        [146]         [146]        "
1430 IFT<30THENPRINTJ$"       [146]               ":GOTO1450
1440 IFT<38THENPRINTJ$"       [146]       [146]        "
1450 M=1:Y=8:X=24:K=1:L=-2:IFT>37ANDZS<>1THENGOSUB1550
1460 IFZSTHENM=2:GOSUB1550
1470 IFT>37ANDZS<>1THENGOSUB1550
1480 PRINTJ$"        "SPC(6)"       ":IFZS<>1THENY=11:X=18:GOSUB1550:GOTO1500
1490 PRINTQ$"      [181]    [182]  [146]    "
1500 M=2:Y=13:X=14:K=2:L=-4:GOSUB1550:PRINTSPC(17)"[162][162][162][162][162][162]"
1510 POKEG,PEEK(G)OR16:PRINT""Q$"PLAY AGAIN?  (Y/N)";
1520 GETA$:IFA$="Y"THENRUN340
1530 IFA$="N"THEN60000
1540 GOTO1520
1550 FORJ=1TOM:FORI=1TOY:PRINT" ";:NEXT:FORI=1TOX:PRINT" ";:NEXT:PRINT
1560 Y=Y+K:X=X+L:NEXT:RETURN
1570 PRINTP$"[181]                        [182]":RETURN
1580 X=INT((238-JJ)/6):IFX<2THENPOKEVC+1,226:GOTO1620
1590 GOSUB1660:FORP=1TOX:POKES,LF:POKES+1,HF:POKES+4,33:IFJJ=226THENP=X
1600 POKEVC+1,JJ:JJ=JJ+6:IFJJ>226THENJJ=226
1610 LF=LF-3:HF=HF-3:NEXT:POKES+4,0
1620 POKEVC+21,240:GOSUB1670:FORP=1TO9:POKES,15:POKES+1,HF:HF=HF-1:NEXT
1630 POKES+24,0:FORP=1TO500:NEXT:X=8:Z=18:GOSUB1750:GOSUB1710:FORP=1TO500
1640 NEXT:GOSUB1690:GOSUB1040:FORP=1TO2600:NEXT:PRINT"":ZS=1:GOTO1250
1650 X=1:Z=7:GOSUB1750:GOSUB1710:FORP=1TO2600:NEXT:GOTO1250
1660 Z=1200:LF=151:HF=170:POKES+5,30:POKES+6,7:RETURN
1670 HF=9:FORL=0TO24:POKES+L,0:NEXT:POKES+14,5:POKES+18,14:POKES+3,211
1680 POKES+24,136:POKES+6,221:POKES+4,129:RETURN
1690 POKE53280,2:PRINT"";:PRINTS$" [221]":FORI=1TO6:PRINTS$" [221]":PRINTS$" [221]":NEXT
1700 PRINTS$" [221]":PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":PRINT"";:RETURN
1710 POKES+5,30:POKES+6,7:POKES+12,30:POKES+13,7:POKES+24,15:FORI=XTOZ
1720 POKES+1,HF(I):POKES+8,HH(I):POKES,LF(I):POKES+7,LL(I):POKES+4,33
1730 POKES+11,33:FORP=1TODR(I):NEXT:POKES+4,32:POKES+11,32:FORP=1TO50:NEXT
1740 NEXT:RETURN
1750 FORL=0TO24:POKES+L,0:NEXT:POKES+24,15:POKES,151:POKES+1,170:RETURN
1760 DATA33,25,135,30,250,33,25,135,30,63,33,25,135,30,63,33,25,135,30,250
1770 DATA33,25,135,30,63,33,25,135,30,63
1775 DATA44,33,135,195,1150,8,6,97,71,750
1777 DATA8,6,97,71,375,8,6,97,71,190,8,6,97,71,750
1780 DATA9,5,247,152,375,9,5,104,152,190,9,5,104,152,190,8,6,97,71,375
1790 DATA8,5,97,152,375,7,6,233,71,470,8,6,97,71,1500,2,1,4,3,6,,6,,9,1
1800 DATA6,,9,1,10,,31,10,9,1,91,10,9,1,91
1805 DATA10,90,10,901,100,900,100,0
60000 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60010 IFER<>63THENEND
60020 LOAD"HELLO CONNECT",8